home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1980-01-11 | 6.0 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: '; **************************************************'
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 20 20 20 20 20 20 20 | 20 20 20 2a 2a 2a 2a 2a |; | *****|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 00 3b 20 |********|*****.; |
|00000040| 20 20 20 20 20 20 20 20 | 20 2a 2a 20 20 20 20 20 | | ** |
|00000050| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000070| 20 20 20 20 20 20 20 20 | 20 2a 2a 00 3b 20 20 20 | | **.; |
|00000080| 20 20 20 20 20 20 20 2a | 2a 20 20 20 41 6d 69 67 | *|* Amig|
|00000090| 61 20 53 75 70 70 6f 72 | 74 20 4c 69 62 72 61 72 |a Suppor|t Librar|
|000000a0| 79 20 66 6f 72 20 42 6c | 69 74 7a 20 42 61 73 69 |y for Bl|itz Basi|
|000000b0| 63 20 49 49 20 20 20 2a | 2a 00 3b 20 20 20 20 20 |c II *|*.; |
|000000c0| 20 20 20 20 20 2a 2a 20 | 20 20 20 20 20 20 20 20 | ** | |
|000000d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000f0| 20 20 20 20 20 2a 2a 00 | 3b 20 20 20 20 20 20 20 | **.|; |
|00000100| 20 20 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *****|********|
|00000110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000130| 2a 2a 2a 2a 2a 00 3b 20 | 20 20 20 20 20 20 20 20 |*****.; | |
|00000140| 20 2a 2a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | ** | |
|00000150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000170| 20 2a 2a 00 3b 20 20 20 | 20 20 20 20 20 20 20 2a | **.; | *|
|00000180| 2a 20 20 20 43 72 65 64 | 69 74 73 3a 20 20 20 20 |* Cred|its: |
|00000190| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000001a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2a | | *|
|000001b0| 2a 00 3b 20 20 20 20 20 | 20 20 20 20 20 2a 2a 20 |*.; | ** |
|000001c0| 20 20 20 20 49 6e 69 74 | 69 61 6c 20 63 6f 6e 63 | Init|ial conc|
|000001d0| 65 70 74 20 61 6e 64 20 | 36 38 30 78 30 20 63 6f |ept and |680x0 co|
|000001e0| 64 69 6e 67 20 2d 20 20 | 20 20 20 20 20 2a 2a 00 |ding - | **.|
|000001f0| 3b 20 20 20 20 20 20 20 | 20 20 20 2a 2a 20 20 20 |; | ** |
|00000200| 20 20 20 20 20 20 4e 65 | 69 6c 20 4f 27 52 6f 75 | Ne|il O'Rou|
|00000210| 72 6b 65 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |rke | |
|00000220| 20 20 20 20 20 20 20 20 | 20 20 20 2a 2a 00 3b 20 | | **.; |
|00000230| 20 20 20 20 20 20 20 20 | 20 2a 2a 20 20 20 20 20 | | ** |
|00000240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000260| 20 20 20 20 20 20 20 20 | 20 2a 2a 00 3b 20 20 20 | | **.; |
|00000270| 20 20 20 20 20 20 20 2a | 2a 20 20 20 20 20 42 61 | *|* Ba|
|00000280| 73 69 63 20 63 6f 64 69 | 6e 67 20 6f 66 20 73 6f |sic codi|ng of so|
|00000290| 6d 65 20 63 6f 6d 6d 61 | 6e 64 73 20 2d 20 20 20 |me comma|nds - |
|000002a0| 20 20 20 20 20 20 20 2a | 2a 00 3b 20 20 20 20 20 | *|*.; |
|000002b0| 20 20 20 20 20 2a 2a 20 | 20 20 20 20 20 20 20 20 | ** | |
|000002c0| 52 6f 79 20 22 54 68 65 | 20 52 61 74 22 20 48 75 |Roy "The| Rat" Hu|
|000002d0| 72 6c 65 79 20 20 20 20 | 20 20 20 20 20 20 20 20 |rley | |
|000002e0| 20 20 20 20 20 2a 2a 00 | 3b 20 20 20 20 20 20 20 | **.|; |
|000002f0| 20 20 20 2a 2a 20 20 20 | 20 20 20 20 20 20 20 20 | ** | |
|00000300| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000310| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000320| 20 20 20 2a 2a 00 3b 20 | 20 20 20 20 20 20 20 20 | **.; | |
|00000330| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *******|********|
|00000340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000350| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000360| 2a 2a 2a 00 00 3b 4c 69 | 62 72 61 72 79 20 48 69 |***..;Li|brary Hi|
|00000370| 73 74 6f 72 79 3a 00 00 | 3b 53 6f 6d 65 74 69 6d |story:..|;Sometim|
|00000380| 65 20 69 6e 20 31 39 39 | 33 3a 20 20 4c 69 62 72 |e in 199|3: Libr|
|00000390| 61 72 79 20 63 72 65 61 | 74 65 64 20 77 69 74 68 |ary crea|ted with|
|000003a0| 20 6a 75 73 74 20 41 6c | 6c 6f 63 4d 65 6d 20 61 | just Al|locMem a|
|000003b0| 6e 64 20 46 72 65 65 4d | 65 6d 00 3b 41 20 62 69 |nd FreeM|em.;A bi|
|000003c0| 74 20 61 66 74 65 72 20 | 74 68 61 74 3a 20 20 43 |t after |that: C|
|000003d0| 72 65 61 74 65 64 20 49 | 73 45 76 65 6e 20 6a 75 |reated I|sEven ju|
|000003e0| 73 74 20 74 6f 20 70 72 | 6f 76 65 20 61 20 70 6f |st to pr|ove a po|
|000003f0| 69 6e 74 20 74 6f 20 6d | 79 20 62 72 6f 74 68 65 |int to m|y brothe|
|00000400| 72 00 3b 4c 61 74 65 72 | 20 69 6e 20 31 39 39 33 |r.;Later| in 1993|
|00000410| 3a 20 20 20 20 20 53 65 | 61 72 63 68 53 74 72 69 |: Se|archStri|
|00000420| 6e 67 20 6e 69 63 6b 65 | 64 20 66 72 6f 6d 20 52 |ng nicke|d from R|
|00000430| 6f 79 27 73 20 61 72 74 | 69 63 6c 65 20 69 6e 20 |oy's art|icle in |
|00000440| 41 43 41 52 00 3b 54 6f | 6f 20 66 61 72 20 69 6e |ACAR.;To|o far in|
|00000450| 74 6f 20 31 39 39 34 20 | 20 4c 69 62 72 61 72 79 |to 1994 | Library|
|00000460| 20 72 65 6c 65 61 73 65 | 64 20 77 69 74 68 20 42 | release|d with B|
|00000470| 6c 69 74 7a 20 31 2e 38 | 30 00 3b 32 38 2d 34 2d |litz 1.8|0.;28-4-|
|00000480| 39 34 20 20 20 20 20 20 | 20 20 20 20 20 20 41 64 |94 | Ad|
|00000490| 64 65 64 20 42 4c 6f 61 | 64 2c 20 42 53 61 76 65 |ded BLoa|d, BSave|
|000004a0| 20 61 6e 64 20 42 46 72 | 65 65 20 61 66 74 65 72 | and BFr|ee after|
|000004b0| 20 6e 61 67 67 69 6e 67 | 73 20 62 79 20 52 6f 79 | nagging|s by Roy|
|000004c0| 00 00 23 73 75 70 70 6f | 72 74 6c 69 62 6e 75 6d |..#suppo|rtlibnum|
|000004d0| 3d 39 31 00 00 21 6c 69 | 62 68 65 61 64 65 72 7b |=91..!li|bheader{|
|000004e0| 23 73 75 70 70 6f 72 74 | 6c 69 62 6e 75 6d 2c 30 |#support|libnum,0|
|000004f0| 2c 30 2c 30 2c 30 7d 00 | 00 21 61 66 75 6e 63 74 |,0,0,0}.|.!afunct|
|00000500| 69 6f 6e 7b 23 6c 6f 6e | 67 7d 00 21 61 72 67 73 |ion{#lon|g}.!args|
|00000510| 7b 23 6c 6f 6e 67 2c 23 | 6c 6f 6e 67 7d 00 21 6c |{#long,#|long}.!l|
|00000520| 69 62 73 00 21 73 75 62 | 73 7b 5f 61 6c 6c 6f 63 |ibs.!sub|s{_alloc|
|00000530| 6d 65 6d 2c 30 2c 30 7d | 00 21 6e 61 6d 65 7b 22 |mem,0,0}|.!name{"|
|00000540| 41 6c 6c 6f 63 4d 65 6d | 22 2c 22 28 42 79 74 65 |AllocMem|","(Byte|
|00000550| 53 69 7a 65 2c 41 74 74 | 72 69 62 75 74 65 73 29 |Size,Att|ributes)|
|00000560| 22 7d 00 00 21 61 73 74 | 61 74 65 6d 65 6e 74 00 |"}..!ast|atement.|
|00000570| 21 61 72 67 73 7b 23 6c | 6f 6e 67 2c 23 6c 6f 6e |!args{#l|ong,#lon|
|00000580| 67 7d 00 21 6c 69 62 73 | 00 21 73 75 62 73 7b 5f |g}.!libs|.!subs{_|
|00000590| 66 72 65 65 6d 65 6d 2c | 30 2c 30 7d 00 21 6e 61 |freemem,|0,0}.!na|
|000005a0| 6d 65 7b 22 46 72 65 65 | 4d 65 6d 22 2c 22 4d 65 |me{"Free|Mem","Me|
|000005b0| 6d 6f 72 79 42 6c 6f 63 | 6b 2c 42 79 74 65 53 69 |moryBloc|k,ByteSi|
|000005c0| 7a 65 22 7d 00 00 21 61 | 66 75 6e 63 74 69 6f 6e |ze"}..!a|function|
|000005d0| 7b 23 62 79 74 65 7d 00 | 21 61 72 67 73 7b 23 6c |{#byte}.|!args{#l|
|000005e0| 6f 6e 67 7d 00 21 6c 69 | 62 73 00 21 73 75 62 73 |ong}.!li|bs.!subs|
|000005f0| 7b 5f 69 73 65 76 65 6e | 2c 30 2c 30 7d 00 21 6e |{_iseven|,0,0}.!n|
|00000600| 61 6d 65 7b 22 49 73 45 | 76 65 6e 22 2c 22 28 45 |ame{"IsE|ven","(E|
|00000610| 78 70 72 65 73 73 69 6f | 6e 29 22 7d 00 00 21 61 |xpressio|n)"}..!a|
|00000620| 66 75 6e 63 74 69 6f 6e | 7b 23 6c 6f 6e 67 7d 00 |function|{#long}.|
|00000630| 21 61 72 67 73 7b 23 6c | 6f 6e 67 2c 23 6c 6f 6e |!args{#l|ong,#lon|
|00000640| 67 2c 23 6c 6f 6e 67 7d | 00 21 6c 69 62 73 00 21 |g,#long}|.!libs.!|
|00000650| 73 75 62 73 7b 5f 73 65 | 61 72 63 68 2c 30 2c 30 |subs{_se|arch,0,0|
|00000660| 7d 00 21 6e 61 6d 65 7b | 22 53 65 61 72 63 68 53 |}.!name{|"SearchS|
|00000670| 74 72 69 6e 67 22 2c 22 | 28 4d 61 74 63 68 53 74 |tring","|(MatchSt|
|00000680| 72 69 6e 67 50 6f 69 6e | 74 65 72 2c 53 74 61 72 |ringPoin|ter,Star|
|00000690| 74 2c 4c 65 6e 67 74 68 | 29 22 7d 00 00 21 61 66 |t,Length|)"}..!af|
|000006a0| 75 6e 63 74 69 6f 6e 7b | 23 6c 6f 6e 67 7d 00 21 |unction{|#long}.!|
|000006b0| 61 72 67 73 7b 23 73 74 | 72 69 6e 67 2c 23 6c 6f |args{#st|ring,#lo|
|000006c0| 6e 67 7d 00 21 6c 69 62 | 73 7b 23 64 6f 73 6c 69 |ng}.!lib|s{#dosli|
|000006d0| 62 2c 23 6c 61 36 7d 00 | 21 73 75 62 73 7b 5f 62 |b,#la6}.|!subs{_b|
|000006e0| 6c 6f 61 64 2c 30 2c 30 | 7d 00 21 6e 61 6d 65 7b |load,0,0|}.!name{|
|000006f0| 22 42 4c 6f 61 64 22 2c | 22 28 46 69 6c 65 4e 61 |"BLoad",|"(FileNa|
|00000700| 6d 65 24 2c 4d 65 6d 6f | 72 79 54 79 70 65 29 22 |me$,Memo|ryType)"|
|00000710| 7d 00 00 21 61 73 74 61 | 74 65 6d 65 6e 74 00 21 |}..!asta|tement.!|
|00000720| 61 72 67 73 7b 23 6c 6f | 6e 67 7d 00 21 6c 69 62 |args{#lo|ng}.!lib|
|00000730| 73 00 21 73 75 62 73 7b | 5f 62 66 72 65 65 2c 30 |s.!subs{|_bfree,0|
|00000740| 2c 30 7d 00 21 6e 61 6d | 65 7b 22 42 46 72 65 65 |,0}.!nam|e{"BFree|
|00000750| 22 2c 22 42 46 69 6c 65 | 50 6f 69 6e 74 65 72 22 |","BFile|Pointer"|
|00000760| 7d 00 00 21 61 73 74 61 | 74 65 6d 65 6e 74 00 21 |}..!asta|tement.!|
|00000770| 61 72 67 73 7b 23 73 74 | 72 69 6e 67 2c 23 6c 6f |args{#st|ring,#lo|
|00000780| 6e 67 2c 23 6c 6f 6e 67 | 7d 00 21 6c 69 62 73 7b |ng,#long|}.!libs{|
|00000790| 23 64 6f 73 6c 69 62 2c | 23 6c 61 36 7d 00 21 73 |#doslib,|#la6}.!s|
|000007a0| 75 62 73 7b 5f 62 73 61 | 76 65 2c 30 2c 30 7d 00 |ubs{_bsa|ve,0,0}.|
|000007b0| 21 6e 61 6d 65 7b 22 42 | 53 61 76 65 22 2c 22 46 |!name{"B|Save","F|
|000007c0| 69 6c 65 4e 61 6d 65 24 | 2c 41 64 64 72 65 73 73 |ileName$|,Address|
|000007d0| 2c 4c 65 6e 67 74 68 22 | 7d 00 00 21 6c 69 62 66 |,Length"|}..!libf|
|000007e0| 69 6e 00 00 5f 61 6c 6c | 6f 63 6d 65 6d 3a 80 38 |in.._all|ocmem:.8|
|000007f0| 20 24 63 30 30 32 3a 80 | 94 00 00 5f 66 72 65 65 | $c002:.|..._free|
|00000800| 6d 65 6d 3a 80 80 2e 6c | 20 64 30 2c 61 31 3a 80 |mem:...l| d0,a1:.|
|00000810| 7e 2e 6c 20 64 31 2c 64 | 30 3a 80 38 20 24 63 30 |~.l d1,d|0:.8 $c0|
|00000820| 30 33 3a 80 94 00 00 5f | 69 73 65 76 65 6e 3a 80 |03:...._|iseven:.|
|00000830| 57 20 23 30 2c 64 30 3a | 80 48 20 5f 73 65 74 74 |W #0,d0:|.H _sett|
|00000840| 72 75 65 3a 80 7e 2e 62 | 20 23 30 2c 64 30 3a 80 |rue:.~.b| #0,d0:.|
|00000850| 94 00 5f 73 65 74 74 72 | 75 65 3a 80 7e 2e 62 20 |.._settr|ue:.~.b |
|00000860| 23 2d 31 2c 64 30 3a 80 | 94 00 00 5f 73 65 61 72 |#-1,d0:.|..._sear|
|00000870| 63 68 3a 80 7e 2e 6c 20 | 64 31 2c 61 30 3a 80 7e |ch:.~.l |d1,a0:.~|
|00000880| 2e 6c 20 64 30 2c 61 31 | 3a 80 7e 2e 6c 20 64 32 |.l d0,a1|:.~.l d2|
|00000890| 2c 64 35 3a 80 a7 2e 6c | 20 61 33 2c 61 33 00 80 |,d5:...l| a3,a3..|
|000008a0| 7e 2e 6c 20 61 31 2c 61 | 34 3a 80 7e 2e 62 20 28 |~.l a1,a|4:.~.b (|
|000008b0| 61 31 29 2c 64 30 3a 80 | 48 20 5f 73 65 61 72 63 |a1),d0:.|H _searc|
|000008c0| 68 5f 66 69 6e 6e 00 5f | 73 65 61 72 63 68 5f 73 |h_finn._|search_s|
|000008d0| 74 61 72 74 3a 80 5c 2e | 62 20 28 61 30 29 2b 2c |tart:.\.|b (a0)+,|
|000008e0| 64 30 3a 80 48 20 5f 73 | 65 61 72 63 68 5f 6d 61 |d0:.H _s|earch_ma|
|000008f0| 74 63 68 3a 80 aa 2e 6c | 20 23 31 2c 64 35 3a 80 |tch:...l| #1,d5:.|
|00000900| 50 20 5f 73 65 61 72 63 | 68 5f 73 74 61 72 74 00 |P _searc|h_start.|
|00000910| 5f 73 65 61 72 63 68 5f | 66 69 6e 6e 3a 80 7e 2e |_search_|finn:.~.|
|00000920| 6c 20 61 33 2c 64 30 3a | 80 94 00 5f 73 65 61 72 |l a3,d0:|..._sear|
|00000930| 63 68 5f 6d 61 74 63 68 | 3a 80 aa 2e 6c 20 23 31 |ch_match|:...l #1|
|00000940| 2c 61 30 3a 80 7e 2e 6c | 20 61 30 2c 61 33 00 5f |,a0:.~.l| a0,a3._|
|00000950| 73 65 61 72 63 68 5f 6c | 6f 6f 70 3a 80 7e 2e 62 |search_l|oop:.~.b|
|00000960| 20 28 61 31 29 2b 2c 64 | 30 3a 80 48 20 5f 73 65 | (a1)+,d|0:.H _se|
|00000970| 61 72 63 68 5f 66 69 6e | 6e 3a 80 5c 2e 62 20 28 |arch_fin|n:.\.b (|
|00000980| 61 30 29 2b 2c 64 30 3a | 80 48 20 5f 73 65 61 72 |a0)+,d0:|.H _sear|
|00000990| 63 68 5f 6c 6f 6f 70 00 | 80 a7 2e 6c 20 61 33 2c |ch_loop.|...l a3,|
|000009a0| 61 33 3a 80 7e 2e 6c 20 | 64 34 2c 61 31 3a 80 7e |a3:.~.l |d4,a1:.~|
|000009b0| 2e 62 20 28 61 31 29 2c | 64 30 3a 80 58 20 5f 73 |.b (a1),|d0:.X _s|
|000009c0| 65 61 72 63 68 5f 73 74 | 61 72 74 00 00 3b 59 6f |earch_st|art..;Yo|
|000009d0| 75 20 77 69 6c 6c 20 6e | 6f 74 65 20 68 6f 77 20 |u will n|ote how |
|000009e0| 70 72 6f 66 65 73 73 69 | 6f 6e 61 6c 20 74 68 65 |professi|onal the|
|000009f0| 20 63 6f 64 69 6e 67 20 | 69 73 20 66 72 6f 6d 20 | coding |is from |
|00000a00| 6e 6f 77 20 6f 6e 20 3a | 29 00 00 2e 5f 62 6c 6f |now on :|)..._blo|
|00000a10| 61 64 3a 00 20 20 80 82 | 2e 6c 20 61 34 2d 61 36 |ad:. ..|.l a4-a6|
|00000a20| 2c 2d 28 61 37 29 00 20 | 20 80 7e 2e 6c 20 64 30 |,-(a7). | .~.l d0|
|00000a30| 2c 66 6e 61 6d 65 20 20 | 20 20 20 20 20 20 20 3b |,fname | ;|
|00000a40| 53 61 76 65 20 74 68 65 | 20 6e 61 6d 65 20 6f 66 |Save the| name of|
|00000a50| 20 74 68 65 20 66 69 6c | 65 20 77 65 20 77 61 6e | the fil|e we wan|
|00000a60| 74 20 74 6f 20 6c 6f 61 | 64 00 20 20 80 7e 2e 6c |t to loa|d. .~.l|
|00000a70| 20 64 31 2c 6d 74 79 70 | 65 20 20 20 20 20 20 20 | d1,mtyp|e |
|00000a80| 20 20 3b 61 6e 64 20 74 | 68 65 20 74 79 70 65 20 | ;and t|he type |
|00000a90| 6f 66 20 6d 65 6d 6f 72 | 79 20 74 6f 20 6c 6f 61 |of memor|y to loa|
|00000aa0| 64 20 69 74 20 69 6e 74 | 6f 00 20 20 80 7e 2e 6c |d it int|o. .~.l|
|00000ab0| 20 66 6e 61 6d 65 2c 64 | 31 00 20 20 80 7e 2e 6c | fname,d|1. .~.l|
|00000ac0| 20 23 31 30 30 35 2c 64 | 32 20 20 20 20 20 20 20 | #1005,d|2 |
|00000ad0| 20 20 3b 41 63 63 65 73 | 73 20 6d 6f 64 65 00 20 | ;Acces|s mode. |
|00000ae0| 20 80 79 20 2d 24 35 34 | 28 61 36 29 20 20 20 20 | .y -$54|(a6) |
|00000af0| 20 20 20 20 20 20 20 20 | 3b 47 65 74 20 61 20 6c | |;Get a l|
|00000b00| 6f 63 6b 20 6f 6e 20 74 | 68 65 20 66 69 6c 65 00 |ock on t|he file.|
|00000b10| 20 20 80 5c 2e 6c 20 23 | 30 2c 64 30 00 20 20 80 | .\.l #|0,d0. .|
|00000b20| 48 20 66 69 6c 65 65 72 | 72 00 20 20 80 7e 2e 6c |H fileer|r. .~.l|
|00000b30| 20 64 30 2c 6c 6f 63 6b | 20 20 20 20 20 20 20 20 | d0,lock| |
|00000b40| 20 20 3b 61 6e 64 20 73 | 61 76 65 20 69 74 00 20 | ;and s|ave it. |
|00000b50| 20 80 7e 2e 6c 20 23 24 | 65 30 2c 64 30 20 20 20 | .~.l #$|e0,d0 |
|00000b60| 20 20 20 20 20 20 20 3b | 45 6e 6f 75 67 68 20 6d | ;|Enough m|
|00000b70| 65 6d 6f 72 79 20 66 6f | 72 20 61 20 46 69 6c 65 |emory fo|r a File|
|00000b80| 49 6e 66 6f 42 6c 6f 63 | 6b 00 20 20 80 7e 20 23 |InfoBloc|k. .~ #|
|00000b90| 30 2c 64 31 20 20 20 20 | 20 20 20 20 20 20 20 20 |0,d1 | |
|00000ba0| 20 20 3b 4d 65 6d 6f 72 | 79 20 74 79 70 65 20 28 | ;Memor|y type (|
|00000bb0| 30 3d 61 6e 79 29 00 20 | 20 80 38 20 24 63 30 30 |0=any). | .8 $c00|
|00000bc0| 32 00 20 20 80 48 20 74 | 72 61 63 6b 65 72 65 72 |2. .H t|rackerer|
|00000bd0| 72 00 20 20 80 7e 2e 6c | 20 64 30 2c 66 69 62 20 |r. .~.l| d0,fib |
|00000be0| 20 20 20 20 20 20 20 20 | 20 20 3b 53 61 76 65 20 | | ;Save |
|00000bf0| 61 64 64 72 65 73 73 00 | 20 20 80 7e 2e 6c 20 6c |address.| .~.l l|
|00000c00| 6f 63 6b 2c 64 31 20 20 | 20 20 20 20 20 20 20 20 |ock,d1 | |
|00000c10| 3b 4e 6f 77 20 67 65 74 | 20 6f 75 72 20 6c 6f 63 |;Now get| our loc|
|00000c20| 6b 00 20 20 80 7e 2e 6c | 20 66 69 62 2c 64 32 20 |k. .~.l| fib,d2 |
|00000c30| 20 20 20 20 20 20 20 20 | 20 20 3b 61 6e 64 20 6f | | ;and o|
|00000c40| 75 72 20 66 69 6c 65 20 | 69 6e 66 6f 20 62 6c 6f |ur file |info blo|
|00000c50| 63 6b 00 20 20 80 79 20 | 2d 24 36 36 28 61 36 29 |ck. .y |-$66(a6)|
|00000c60| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 61 6e 64 | | ;and|
|00000c70| 20 22 65 78 61 6d 69 6e | 65 22 20 74 68 65 20 66 | "examin|e" the f|
|00000c80| 69 6c 65 00 20 20 80 48 | 20 66 69 6c 65 65 72 72 |ile. .H| fileerr|
|00000c90| 00 20 20 80 7e 2e 6c 20 | 66 69 62 2c 61 30 00 20 |. .~.l |fib,a0. |
|00000ca0| 20 80 7e 2e 6c 20 24 37 | 63 28 61 30 29 2c 64 30 | .~.l $7|c(a0),d0|
|00000cb0| 20 20 20 20 20 20 20 3b | 47 65 74 20 74 68 65 20 | ;|Get the |
|00000cc0| 6c 65 6e 67 74 68 20 6f | 66 20 74 68 65 20 66 69 |length o|f the fi|
|00000cd0| 6c 65 00 20 20 80 7e 2e | 6c 20 64 30 2c 74 6d 70 |le. .~.|l d0,tmp|
|00000ce0| 73 69 7a 65 20 20 20 20 | 20 20 20 3b 53 61 76 65 |size | ;Save|
|00000cf0| 20 69 74 20 69 6e 20 6f | 75 72 20 64 61 74 61 20 | it in o|ur data |
|00000d00| 74 61 62 6c 65 00 20 20 | 80 7e 2e 6c 20 6d 74 79 |table. |.~.l mty|
|00000d10| 70 65 2c 64 31 20 20 20 | 20 20 20 20 20 20 3b 52 |pe,d1 | ;R|
|00000d20| 65 71 75 65 73 74 65 64 | 20 6d 65 6d 6f 72 79 00 |equested| memory.|
|00000d30| 20 20 80 38 20 24 63 30 | 30 32 20 20 20 20 20 20 | .8 $c0|02 |
|00000d40| 20 20 20 20 20 3b 41 6e | 64 20 61 6c 6c 6f 63 61 | ;An|d alloca|
|00000d50| 74 65 20 65 6e 6f 75 67 | 68 20 52 41 4d 00 20 20 |te enoug|h RAM. |
|00000d60| 80 7e 2e 6c 20 64 30 2c | 74 6d 70 6c 6f 63 20 20 |.~.l d0,|tmploc |
|00000d70| 20 20 20 20 20 20 3b 53 | 61 76 65 20 74 68 65 20 | ;S|ave the |
|00000d80| 61 64 64 72 65 73 73 20 | 69 6e 20 74 68 65 20 74 |address |in the t|
|00000d90| 61 62 6c 65 00 20 20 80 | 7e 2e 6c 20 6c 6f 63 6b |able. .|~.l lock|
|00000da0| 2c 64 31 20 20 20 20 20 | 20 20 20 20 20 3b 47 65 |,d1 | ;Ge|
|00000db0| 74 20 6f 75 72 20 6c 6f | 63 6b 00 20 20 80 79 20 |t our lo|ck. .y |
|00000dc0| 2d 24 31 37 61 28 61 36 | 29 20 20 20 20 20 20 20 |-$17a(a6|) |
|00000dd0| 20 20 20 20 3b 61 6e 64 | 20 6f 70 65 6e 20 74 68 | ;and| open th|
|00000de0| 65 20 66 69 6c 65 20 66 | 6f 72 20 72 65 61 64 69 |e file f|or readi|
|00000df0| 6e 67 20 66 72 6f 6d 20 | 6f 75 72 20 6c 6f 63 6b |ng from |our lock|
|00000e00| 00 20 20 80 7e 2e 6c 20 | 64 30 2c 68 61 6e 64 20 |. .~.l |d0,hand |
|00000e10| 20 20 20 20 20 20 20 20 | 20 3b 54 68 69 73 20 69 | | ;This i|
|00000e20| 73 20 6f 75 72 20 66 69 | 6c 65 20 68 61 6e 64 6c |s our fi|le handl|
|00000e30| 65 00 20 20 80 7e 2e 6c | 20 74 6d 70 6c 6f 63 2c |e. .~.l| tmploc,|
|00000e40| 64 32 20 20 20 20 20 20 | 20 20 3b 54 68 65 20 66 |d2 | ;The f|
|00000e50| 69 6c 65 20 62 75 66 66 | 65 72 2e 2e 2e 00 20 20 |ile buff|er.... |
|00000e60| 80 7e 2e 6c 20 64 30 2c | 64 31 20 20 20 20 20 20 |.~.l d0,|d1 |
|00000e70| 20 20 20 20 20 20 3b 74 | 68 65 20 68 61 6e 64 6c | ;t|he handl|
|00000e80| 65 2e 2e 2e 00 20 20 80 | 7e 2e 6c 20 74 6d 70 73 |e.... .|~.l tmps|
|00000e90| 69 7a 65 2c 64 33 20 20 | 20 20 20 20 20 3b 74 68 |ize,d3 | ;th|
|00000ea0| 65 20 6c 65 6e 67 74 68 | 2e 2e 2e 00 20 20 80 79 |e length|.... .y|
|00000eb0| 20 2d 24 32 61 28 61 36 | 29 20 20 20 20 20 20 20 | -$2a(a6|) |
|00000ec0| 20 20 20 20 20 3b 4e 6f | 77 20 72 65 61 64 20 74 | ;No|w read t|
|00000ed0| 68 65 20 77 68 6f 6c 65 | 20 66 69 6c 65 20 69 6e |he whole| file in|
|00000ee0| 00 20 20 80 7e 2e 6c 20 | 64 30 2c 72 65 61 64 65 |. .~.l |d0,reade|
|00000ef0| 72 72 20 20 20 20 20 20 | 20 3b 53 61 76 65 20 74 |rr | ;Save t|
|00000f00| 68 65 20 65 72 72 6f 72 | 20 63 6f 64 65 00 6e 6f |he error| code.no|
|00000f10| 74 74 72 6b 3a 00 20 20 | 80 7e 2e 6c 20 68 61 6e |ttrk:. |.~.l han|
|00000f20| 64 2c 64 31 20 20 20 20 | 20 20 20 20 20 20 3b 47 |d,d1 | ;G|
|00000f30| 65 74 20 6f 75 72 20 66 | 69 6c 65 20 68 61 6e 64 |et our f|ile hand|
|00000f40| 6c 65 20 62 61 63 6b 00 | 20 20 80 79 20 2d 24 32 |le back.| .y -$2|
|00000f50| 34 28 61 36 29 20 20 20 | 20 20 20 20 20 20 20 20 |4(a6) | |
|00000f60| 20 3b 43 6c 6f 73 65 20 | 74 68 65 20 66 69 6c 65 | ;Close |the file|
|00000f70| 00 20 20 80 7e 2e 6c 20 | 72 65 61 64 65 72 72 2c |. .~.l |readerr,|
|00000f80| 64 30 20 20 20 20 20 20 | 20 3b 47 65 74 20 74 68 |d0 | ;Get th|
|00000f90| 65 20 65 72 72 6f 72 20 | 63 6f 64 65 00 20 20 80 |e error |code. .|
|00000fa0| 7e 2e 6c 20 23 2d 31 2c | 72 65 61 64 65 72 72 20 |~.l #-1,|readerr |
|00000fb0| 20 20 20 20 20 3b 53 65 | 74 20 69 74 20 74 6f 20 | ;Se|t it to |
|00000fc0| 42 6c 69 74 7a 20 54 72 | 75 65 00 20 20 80 5c 2e |Blitz Tr|ue. .\.|
|00000fd0| 6c 20 23 2d 31 2c 64 30 | 20 20 20 20 20 20 20 20 |l #-1,d0| |
|00000fe0| 20 20 20 20 3b 57 61 73 | 20 69 74 20 61 6e 20 65 | ;Was| it an e|
|00000ff0| 72 72 6f 72 3f 00 20 20 | 80 50 20 73 65 74 76 61 |rror?. |.P setva|
|00001000| 72 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |r | ;|
|00001010| 4e 6f 2c 20 64 6f 6e 27 | 74 20 61 74 74 65 6d 70 |No, don'|t attemp|
|00001020| 74 20 74 6f 20 66 72 65 | 65 20 74 68 65 20 6c 6f |t to fre|e the lo|
|00001030| 63 6b 00 20 20 80 7e 2e | 6c 20 6c 6f 63 6b 2c 64 |ck. .~.|l lock,d|
|00001040| 31 20 20 20 20 20 20 20 | 20 20 20 3b 47 65 74 20 |1 | ;Get |
|00001050| 6f 75 72 20 6c 6f 63 6b | 00 20 20 80 79 20 2d 24 |our lock|. .y -$|
|00001060| 35 61 28 61 36 29 20 20 | 20 20 20 20 20 20 20 20 |5a(a6) | |
|00001070| 20 20 3b 61 6e 64 20 55 | 6e 4c 6f 63 6b 20 69 74 | ;and U|nLock it|
|00001080| 00 20 20 80 7e 2e 6c 20 | 23 30 2c 72 65 61 64 65 |. .~.l |#0,reade|
|00001090| 72 72 20 20 20 20 20 20 | 20 3b 53 65 74 20 74 68 |rr | ;Set th|
|000010a0| 65 20 65 72 72 6f 72 20 | 63 6f 64 65 20 74 6f 20 |e error |code to |
|000010b0| 42 6c 69 74 7a 20 46 61 | 6c 73 65 00 20 20 80 7e |Blitz Fa|lse. .~|
|000010c0| 2e 6c 20 74 6d 70 6c 6f | 63 2c 61 31 20 20 20 20 |.l tmplo|c,a1 |
|000010d0| 20 20 20 20 3b 47 65 74 | 20 74 68 65 20 62 75 66 | ;Get| the buf|
|000010e0| 66 65 72 20 6c 6f 63 61 | 74 69 6f 6e 00 20 20 80 |fer loca|tion. .|
|000010f0| 7e 2e 6c 20 74 6d 70 73 | 69 7a 65 2c 64 30 00 20 |~.l tmps|ize,d0. |
|00001100| 20 80 38 20 24 63 30 30 | 33 20 20 20 20 20 20 20 | .8 $c00|3 |
|00001110| 20 20 20 20 3b 46 72 65 | 65 20 69 74 00 66 72 65 | ;Fre|e it.fre|
|00001120| 65 66 69 62 3a 00 20 20 | 80 7e 2e 6c 20 66 69 62 |efib:. |.~.l fib|
|00001130| 2c 61 31 20 20 20 20 20 | 20 20 20 20 20 20 3b 47 |,a1 | ;G|
|00001140| 65 74 20 74 68 65 20 61 | 64 64 72 65 73 73 20 6f |et the a|ddress o|
|00001150| 66 20 6f 75 72 20 46 69 | 6c 65 49 6e 66 6f 42 6c |f our Fi|leInfoBl|
|00001160| 6f 63 6b 00 20 20 80 7e | 2e 6c 20 23 24 65 30 2c |ock. .~|.l #$e0,|
|00001170| 64 30 20 20 20 20 20 20 | 20 20 20 20 3b 54 68 65 |d0 | ;The|
|00001180| 20 73 69 7a 65 20 6f 66 | 20 69 74 00 20 20 80 38 | size of| it. .8|
|00001190| 20 24 63 30 30 33 20 20 | 20 20 20 20 20 20 20 20 | $c003 | |
|000011a0| 20 3b 61 6e 64 20 66 72 | 65 65 20 69 74 00 6e 6f | ;and fr|ee it.no|
|000011b0| 66 69 6c 65 3a 00 20 20 | 80 82 2e 6c 20 28 61 37 |file:. |...l (a7|
|000011c0| 29 2b 2c 61 34 2d 61 36 | 20 20 20 20 20 3b 52 65 |)+,a4-a6| ;Re|
|000011d0| 73 74 6f 72 65 20 74 68 | 65 20 72 65 67 69 73 74 |store th|e regist|
|000011e0| 65 72 73 00 20 20 80 7e | 2e 6c 20 72 65 61 64 65 |ers. .~|.l reade|
|000011f0| 72 72 2c 64 30 20 20 20 | 20 20 20 20 3b 53 65 74 |rr,d0 | ;Set|
|00001200| 20 61 20 72 65 74 75 72 | 6e 20 63 6f 64 65 20 6f | a retur|n code o|
|00001210| 72 20 61 64 64 72 65 73 | 73 00 20 20 80 94 20 20 |r addres|s. .. |
|00001220| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001230| 20 20 20 3b 44 6f 6e 65 | 00 00 73 65 74 76 61 72 | ;Done|..setvar|
|00001240| 3a 00 20 20 80 7e 2e 6c | 20 23 38 2c 64 30 20 20 |:. .~.l| #8,d0 |
|00001250| 20 20 20 20 20 20 20 20 | 20 20 3b 38 20 62 79 74 | | ;8 byt|
|00001260| 65 73 00 20 20 80 7e 2e | 6c 20 23 30 2c 64 30 20 |es. .~.|l #0,d0 |
|00001270| 20 20 20 20 20 20 20 20 | 20 20 20 3b 61 6e 79 77 | | ;anyw|
|00001280| 68 65 72 65 00 20 20 80 | 38 20 24 63 30 30 32 20 |here. .|8 $c002 |
|00001290| 20 20 20 20 20 20 20 20 | 20 20 3b 41 6c 6c 6f 63 | | ;Alloc|
|000012a0| 61 74 65 20 74 68 61 74 | 20 6d 65 6d 6f 72 79 00 |ate that| memory.|
|000012b0| 20 20 80 7e 2e 6c 20 64 | 30 2c 72 65 61 64 65 72 | .~.l d|0,reader|
|000012c0| 72 20 20 20 20 20 20 20 | 3b 53 61 76 65 20 74 68 |r |;Save th|
|000012d0| 65 20 6c 6f 63 61 74 69 | 6f 6e 00 20 20 80 7e 2e |e locati|on. .~.|
|000012e0| 6c 20 64 30 2c 61 33 00 | 20 20 80 7e 2e 6c 20 74 |l d0,a3.| .~.l t|
|000012f0| 6d 70 6c 6f 63 2c 28 61 | 33 29 00 20 20 80 7e 2e |mploc,(a|3). .~.|
|00001300| 6c 20 74 6d 70 73 69 7a | 65 2c 34 28 61 33 29 00 |l tmpsiz|e,4(a3).|
|00001310| 20 20 80 58 20 66 72 65 | 65 66 69 62 00 00 66 69 | .X fre|efib..fi|
|00001320| 6c 65 65 72 72 3a 00 20 | 20 80 7e 2e 6c 20 23 6d |leerr:. | .~.l #m|
|00001330| 65 73 73 2c 64 30 00 20 | 20 80 ae 23 30 00 74 72 |ess,d0. | ..#0.tr|
|00001340| 61 63 6b 65 72 65 72 72 | 3a 00 20 20 80 7e 2e 6c |ackererr|:. .~.l|
|00001350| 20 23 6d 65 73 73 32 2c | 64 30 00 20 20 80 ae 23 | #mess2,|d0. ..#|
|00001360| 30 00 00 6d 65 73 73 3a | 80 25 2e 62 20 22 43 61 |0..mess:|.%.b "Ca|
|00001370| 6e 27 74 20 4f 70 65 6e | 20 46 69 6c 65 21 22 2c |n't Open| File!",|
|00001380| 30 00 6d 65 73 73 32 3a | 80 25 2e 62 20 22 53 75 |0.mess2:|.%.b "Su|
|00001390| 70 70 6f 72 74 20 4c 69 | 62 72 61 72 79 20 45 72 |pport Li|brary Er|
|000013a0| 72 6f 72 22 2c 30 00 20 | 20 80 27 00 00 3b 53 6f |ror",0. | .'..;So|
|000013b0| 6d 65 20 69 6e 70 6f 72 | 74 61 6e 74 20 64 61 74 |me inpor|tant dat|
|000013c0| 61 00 68 61 6e 64 3a 80 | 25 2e 6c 20 30 00 6c 6f |a.hand:.|%.l 0.lo|
|000013d0| 63 6b 3a 80 25 2e 6c 20 | 30 00 66 6e 61 6d 65 3a |ck:.%.l |0.fname:|
|000013e0| 20 80 25 2e 6c 20 30 00 | 66 69 62 3a 20 80 25 2e | .%.l 0.|fib: .%.|
|000013f0| 6c 20 30 00 72 65 61 64 | 65 72 72 3a 20 80 25 2e |l 0.read|err: .%.|
|00001400| 6c 20 30 00 74 6d 70 73 | 69 7a 65 3a 20 80 25 2e |l 0.tmps|ize: .%.|
|00001410| 6c 20 30 00 74 6d 70 6c | 6f 63 3a 20 80 25 2e 6c |l 0.tmpl|oc: .%.l|
|00001420| 20 30 00 6d 74 79 70 65 | 3a 20 80 25 2e 6c 20 30 | 0.mtype|: .%.l 0|
|00001430| 00 00 2e 5f 62 66 72 65 | 65 3a 00 20 20 80 5c 20 |..._bfre|e:. .\ |
|00001440| 23 30 2c 64 30 00 20 20 | 80 48 20 65 6e 64 69 74 |#0,d0. |.H endit|
|00001450| 00 20 20 80 7e 2e 6c 20 | 64 30 2c 61 33 00 20 20 |. .~.l |d0,a3. |
|00001460| 80 7e 2e 6c 20 30 28 61 | 33 29 2c 61 31 20 20 20 |.~.l 0(a|3),a1 |
|00001470| 20 20 20 20 20 20 3b 47 | 65 74 20 66 69 6c 65 20 | ;G|et file |
|00001480| 61 64 64 72 65 73 73 00 | 20 20 80 7e 2e 6c 20 34 |address.| .~.l 4|
|00001490| 28 61 33 29 2c 64 30 20 | 20 20 20 20 20 20 20 20 |(a3),d0 | |
|000014a0| 3b 47 65 74 20 66 69 6c | 65 20 73 69 7a 65 00 20 |;Get fil|e size. |
|000014b0| 20 80 38 20 24 63 30 30 | 33 20 20 20 20 20 20 20 | .8 $c00|3 |
|000014c0| 20 20 20 20 3b 46 72 65 | 65 20 69 74 00 20 20 80 | ;Fre|e it. .|
|000014d0| 7e 2e 6c 20 61 33 2c 61 | 31 00 20 20 80 7e 2e 6c |~.l a3,a|1. .~.l|
|000014e0| 20 23 38 2c 64 30 20 20 | 20 20 20 20 20 20 20 20 | #8,d0 | |
|000014f0| 20 20 3b 53 69 7a 65 00 | 20 20 80 38 20 24 63 30 | ;Size.| .8 $c0|
|00001500| 30 33 20 20 20 20 20 20 | 20 20 20 20 20 3b 46 72 |03 | ;Fr|
|00001510| 65 65 20 69 74 00 65 6e | 64 69 74 3a 00 20 20 80 |ee it.en|dit:. .|
|00001520| 94 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00001530| 20 20 20 20 20 20 3b 44 | 6f 6e 65 21 00 00 2e 5f | ;D|one!..._|
|00001540| 62 73 61 76 65 00 20 20 | 80 82 2e 6c 20 61 34 2d |bsave. |...l a4-|
|00001550| 61 36 2c 2d 28 61 37 29 | 00 20 20 80 7e 2e 6c 20 |a6,-(a7)|. .~.l |
|00001560| 64 30 2c 66 6e 61 6d 65 | 20 20 20 20 20 20 20 20 |d0,fname| |
|00001570| 20 3b 53 61 76 65 20 74 | 68 65 20 6e 61 6d 65 20 | ;Save t|he name |
|00001580| 6f 66 20 74 68 65 20 66 | 69 6c 65 20 77 65 20 77 |of the f|ile we w|
|00001590| 61 6e 74 20 74 6f 20 73 | 61 76 65 00 20 20 80 7e |ant to s|ave. .~|
|000015a0| 2e 6c 20 64 31 2c 74 6d | 70 6c 6f 63 20 20 20 20 |.l d1,tm|ploc |
|000015b0| 20 20 20 20 3b 49 74 73 | 20 61 64 64 72 65 73 73 | ;Its| address|
|000015c0| 00 20 20 80 7e 2e 6c 20 | 64 32 2c 74 6d 70 73 69 |. .~.l |d2,tmpsi|
|000015d0| 7a 65 20 20 20 20 20 20 | 20 3b 61 6e 64 20 73 69 |ze | ;and si|
|000015e0| 7a 65 00 20 20 80 7e 2e | 6c 20 66 6e 61 6d 65 2c |ze. .~.|l fname,|
|000015f0| 64 31 00 20 20 80 7e 2e | 6c 20 23 31 30 30 36 2c |d1. .~.|l #1006,|
|00001600| 64 32 20 20 20 20 20 20 | 20 20 20 3b 41 63 63 65 |d2 | ;Acce|
|00001610| 73 73 20 6d 6f 64 65 00 | 20 20 80 79 20 2d 24 31 |ss mode.| .y -$1|
|00001620| 65 28 61 36 29 20 20 20 | 20 20 20 20 20 20 20 20 |e(a6) | |
|00001630| 20 3b 61 6e 64 20 6f 70 | 65 6e 20 74 68 65 20 66 | ;and op|en the f|
|00001640| 69 6c 65 20 66 6f 72 20 | 77 72 69 74 69 6e 67 20 |ile for |writing |
|00001650| 74 6f 20 6f 75 72 20 6c | 6f 63 6b 00 20 20 80 7e |to our l|ock. .~|
|00001660| 2e 6c 20 64 30 2c 68 61 | 6e 64 20 20 20 20 20 20 |.l d0,ha|nd |
|00001670| 20 20 20 20 3b 54 68 69 | 73 20 69 73 20 6f 75 72 | ;Thi|s is our|
|00001680| 20 66 69 6c 65 20 68 61 | 6e 64 6c 65 00 20 20 80 | file ha|ndle. .|
|00001690| 7e 2e 6c 20 74 6d 70 6c | 6f 63 2c 64 32 20 20 20 |~.l tmpl|oc,d2 |
|000016a0| 20 20 20 20 20 3b 54 68 | 65 20 66 69 6c 65 20 62 | ;Th|e file b|
|000016b0| 75 66 66 65 72 2e 2e 2e | 00 20 20 80 7e 2e 6c 20 |uffer...|. .~.l |
|000016c0| 64 30 2c 64 31 20 20 20 | 20 20 20 20 20 20 20 20 |d0,d1 | |
|000016d0| 20 3b 74 68 65 20 68 61 | 6e 64 6c 65 2e 2e 2e 00 | ;the ha|ndle....|
|000016e0| 20 20 80 7e 2e 6c 20 74 | 6d 70 73 69 7a 65 2c 64 | .~.l t|mpsize,d|
|000016f0| 33 20 20 20 20 20 20 20 | 3b 74 68 65 20 6c 65 6e |3 |;the len|
|00001700| 67 74 68 2e 2e 2e 00 20 | 20 80 79 20 2d 24 33 30 |gth.... | .y -$30|
|00001710| 28 61 36 29 20 20 20 20 | 20 20 20 20 20 20 20 20 |(a6) | |
|00001720| 3b 4e 6f 77 20 77 72 69 | 74 65 20 74 68 65 20 66 |;Now wri|te the f|
|00001730| 69 6c 65 00 20 20 80 7e | 2e 6c 20 68 61 6e 64 2c |ile. .~|.l hand,|
|00001740| 64 31 20 20 20 20 20 20 | 20 20 20 20 3b 47 65 74 |d1 | ;Get|
|00001750| 20 6f 75 72 20 66 69 6c | 65 20 68 61 6e 64 6c 65 | our fil|e handle|
|00001760| 20 62 61 63 6b 00 20 20 | 80 79 20 2d 24 32 34 28 | back. |.y -$24(|
|00001770| 61 36 29 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |a6) | ;|
|00001780| 43 6c 6f 73 65 20 74 68 | 65 20 66 69 6c 65 00 20 |Close th|e file. |
|00001790| 20 80 82 2e 6c 20 28 61 | 37 29 2b 2c 61 34 2d 61 | ...l (a|7)+,a4-a|
|000017a0| 36 20 20 20 20 20 3b 52 | 65 73 74 6f 72 65 20 74 |6 ;R|estore t|
|000017b0| 68 65 20 72 65 67 69 73 | 74 65 72 73 00 20 20 80 |he regis|ters. .|
|000017c0| 7e 2e 6c 20 72 65 61 64 | 65 72 72 2c 64 30 20 20 |~.l read|err,d0 |
|000017d0| 20 20 20 20 20 3b 53 65 | 74 20 61 20 72 65 74 75 | ;Se|t a retu|
|000017e0| 72 6e 20 63 6f 64 65 20 | 6f 72 20 61 64 64 72 65 |rn code |or addre|
|000017f0| 73 73 00 20 20 80 94 20 | 20 20 20 20 20 20 20 20 |ss. .. | |
|00001800| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 44 6f 6e | | ;Don|
|00001810| 65 00 00 | |e.. | |
+--------+-------------------------+-------------------------+--------+--------+
